Shareware Overload Trio 2/Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO/dir26/epi601_2.zip/FILES06.EXE/NUTRI.CHK

Text File | 1994-08-22 | 1KB | 86 lines

*******************************************************************************
*ANTHRO.CHK - 18/October/1993                                                *
*Check file to demonstrate the use of nutrition anthropometry within Epi Info*
* version 6.                                                                 *
******************************************************************************
SEX
  UPDATE OFF
  COLOR QUESTION 31
  COLOR DATA 112
  COLOR BACKGROUND 1
  UPDATE
  ENTER
  Legal
    M
    1
    F
    2
  END
  AutoJump AGE
END

AGE
  Range 0 INFINITY
END

WEIGHT
  Range 0 INFINITY
END

HEIGHT
  Range 0 INFINITY
  if age = .
  then
    age = 999.99
  endif
  LOAD ENTFACE.BIN
  CALL ENTFACE 75
  if age = 999.99
  then
    age = .
  endif
  UPDATE
  GOTO WRITEREC
END

HAP
  NoEnter
END

HAZ
  NoEnter
END

HAM
  NoEnter
END

WAP
  NoEnter
END

WAZ
  NoEnter
END

WAM
  NoEnter
END

WHP
  NoEnter
END

WHZ
  NoEnter
END

WHM
  NoEnter
END

FLAG
  NoEnter
END